Optional Maru.f

cr .( Loading MARU p.. )

Only Forth Definitions

Requires SEKI
Requires SORA

\ Load tools
Requires Maru\Benchmarking
Requires Maru\Testing-controls.f
Requires Maru\Fontrast-to-fnt.f
Requires Maru\Paint.f
Requires Maru\Draw-surfaces.f

Requires RND

: >ide   ( -- )
  ide-window set-foreground-window
  fullscreen? if
    screen-w screen-h false set-display
    ide-window set-foreground-window then ;

\ If graphics window is open, and we're interpreting with the Forth IDE with the keyboard, flip the backbuffer.
: prompt-update
  .STACK  STATE @ 0= IF  ."  ok"
    SOURCE-ID 0= display? and if  seki-end-frame then
  THEN CR ;

\ Remove the window
\ :REMEMBER
\   ' (prompt) >body @ dup . , ;

' prompt >body @ value (prompt)

:PRUNE
   cr ." Restoring promptp.."
  (prompt) is prompt ;


' prompt-update is prompt

init-video-driver
